home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1998 January / PC Answers Issue 49 Cover CD January 1998.iso / Apps / Director / DATA.Z / Behavior Library.cst / 00046_UI Rollover Change Pointer .ls < prev    next >
Encoding:
Text File  |  1997-05-09  |  2.0 KB  |  65 lines
  1. -- Pointer Change on Rollover
  2.  
  3.  
  4. -- a control
  5. -- Changes the cursor when the cursor rollsover the sprite
  6.  
  7. property outcurs, incurs, incursSet, customImage, customMask, oldcursor
  8. property useCustom
  9.  
  10.  
  11. on translate_cursor me, setting, image, mask, custom
  12.   if custom then
  13.     set val = [ member image, member mask ]
  14.     return val
  15.   end if
  16.   return setting
  17. end
  18.  
  19.  
  20. --- 
  21.  
  22. on beginSprite me
  23.   set oldcursor = the cursor of sprite the spritenum of me
  24.   set val =  translate_cursor( me, the incursSet of me,customImage,customMask,useCustom )
  25.   set the cursor of sprite the spriteNum of me = val
  26.   
  27. end
  28.  
  29. on endsprite me
  30.   set the cursor of sprite the spriteNum of me = oldcursor
  31. end
  32.  
  33. on getPropertyDescriptionList
  34.   
  35.   set p_list = [ ┬¼
  36.      #incursSet: [ #comment:   "Pointer Image:", ┬¼
  37.                     #format:   #cursor, ┬¼
  38.                    #default:   1], ┬¼
  39.        #useCustom: [ #comment: "Use Custom Pointer:", ┬¼
  40.                     #format:   #boolean, ┬¼
  41.                    #default:    FALSE ], ┬¼
  42.   #customImage: [ #comment:   "Custom Image:", ┬¼
  43.                     #format:   #bitmap, ┬¼
  44.                    #default:    member 1 ], ┬¼
  45.     #customMask: [ #comment:   "Custom Mask:", ┬¼
  46.                     #format:   #bitmap, ┬¼
  47.                    #default:    member 1 ] ┬¼
  48.                  ]
  49.   return p_list 
  50.   
  51. end
  52.  
  53.  
  54. on getBehaviorDescription
  55.   return ┬¼
  56. "Changes the pointer image when the pointer rolls over the current sprite. Choose one of the pointers included with Director, or specify a 1-bit bitmapped cast member." & RETURN & ┬¼
  57. "PARAMETERS:" & RETURN & ┬¼
  58. "ΓÇó Pointer Image - Choose one of Director's included pointers."  & RETURN & ┬¼
  59. "ΓÇó Use Custom Pointer - Turn this option on to specify a cast member instead of an included pointer."  & RETURN & ┬¼
  60. "ΓÇó Custom Image  - ( optional ) Choose a cast member to use as the pointer image.  This choice is ignored unless Use Custom Pointer is on."  & RETURN & ┬¼
  61. "ΓÇó Custom Mask - ( optional ) Choose a cast member to use as mask image."
  62.   
  63. end
  64.  
  65.